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3& - Someday, the LPE will be supported as part of the LPD 


~TITLE WNETORVQRL = DECnet ‘Quick Routing Layer’ module for NETDRIVER 
"IDENT "v04-000" — 


s SunededeequnegerebonetoennbesneEereenEtenreenoneesenseontensnesenenceeses 


COPYRIGHT (c) 1978, 1980, 1982, 1984 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE Sp lth NOTICE. THIS SOFTWARE OR ANY OTHER 
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* * 
* * 
t * 
® R * 
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°* * 
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°* a 
°® * 
°® te 
°® * 
°® a 
°® * 
°® * 
°t 4 


SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 


DIGITAL ASSUMES NO RESPONS . 
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FOR THE USE OR _ RELIABILITY OF ITS 
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S NOT SUPPLIED BY DIGITAL. 
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ST EACILITY: DECnet, Executive 


ABSTRACT: 
This module implements a quick interface for high speed 
communications in end-node environments where the per cner 
node is 1i-hop away, e.g., Ethernet environments. 
motivation for it is the inordinate amount of time spent in 
the more general purpose NETDRVXPT module. 


ENVIRONMENT: Standard driver environment 
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ED BY: 


V04-001 RNGOOO! Rod Gamache 19-Mar-1984 
Close off call to QRL$SETUP_CHAN. 


shggfing Laver" nodule fo rgosepm1eee 61:34:37 NETACE. SREINEYDAVORL.MAR:1 29° A 


Vi 


C 10 
‘Quick Routing Layer’ module fo i at i tae 9 01:38:67 ae Macro V04-00 Page 
IONS “SEP-1984 02:20:21 (CNETACP.SRCINETDRVQRL.MAR; 1 


.SBTTL DECLARATIONS 
8 : INCLUDE FILES: 


NE TDRVQRL 
v04-000 


zs 
reo 
7 


wm 


COOoOQoQoooooooooo 
po feta lo fe fo lo lololeloloio) 


mm RmMmMn wn wmmrrn 
ie De] 


wn 
-> 
9 
qe 
_—J 
~ 


SNETSYMDEF 
SNE TUPDDEF 
SNSPMSGDEF 


SCXBEXTDEF 3; NETDRIVER CXB extensions 
SXWBDEF 3; XWB and LSB definitions 


-iif ndf, IRPSQ_STATION, IRP$Q_STATION = 8+IRPSL_MEDIA 
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: 3 LOCAL DEFINITIONS 
0000000F ao HSZ_DELTA = TR4SC_HSZ_DATA=TR3SC_HSZ_DATA ; Difference in header sizes 
00000008 000 3 MAX_C_LPE = 8 ; Max LPE's 

3 
00000000 0000 9 LPESQ_IRP_WAIT = 0 3; Listhead of waiting processes 
at 8 39 LPESQ_IRP_FREE = 8 :; Listhead of free TRP RS 
000001 98 LPESB_IRP_CNT = 16 ; Count of current IRP's 
00000014 9000 99 LPESC_"LENGTH = 20 ; Round up the Length 

0000 100 

0000 101; 

0000 19 3; MACROS 

44 103 ; 
00000001 9900 104 CAS_MEASURE = 1 ;& 

8808 196 «MACRO INCPMS PMS_CELL : Increment PMS cell 

000 1 é 

44 108 -IF DF CA$ a ft: : 

000 109 IF NE CAS$-MEASURE 3; Conditional assembly 

0000 110 INCE G*PMS$GL_"PMS_CELL' 3; Bump the counter 

0000 111 -ENDC g 

0000 6 -ENDC 3 

0000 113 .ENDM INCPMS F 

0000 114 

0000 115 

0000 116 

3444 aT -PSECT $$$115_DRIVER,LONG,EXE,RD,WRT 3; Goto code PSECT 

0000 119 

0000 120 
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3 } ¢ ‘ -SBTTL QRLSSOLICIT - Process ECL request to xmit into the network | 
1204 ; 
105 ; An ECL (e.g. NSP) is requesting to xmit into the network. The request is | 
4 ! § : honored as scon as an IRP for the designated IRP is available 
000 128 ; INPUTS: R5 fork block address 
00 129 ; e FPC,FR3, us fields are all scratch and must not 
00 130 ; + ‘modi fied" b e caller until it is reactivated by 
00 131 3 either QRLS$D ue "or QRLSGRANTED. 
000 1 ¢ g R4 ADJ oe 
B08 139 3 R3 LPD i.d. 
134; R2 RCB address 
0000 135 ; R1,RO Scratch 
0000 136; 
0000 13 ; (SP) Return address of caller 
0000 138; 4(SP) Return address of caller's caller 
0000 139; 
0000 140; 
0000 141 ; OUTPUTS: See routines QRLS$GRANT or QRLSDENY 
0000 Hb : 
0000 143 ;- 
0000 144 QRL$SOLICIT:: ; Process ECL request to xmit 
0000 145 3 
0000 146 3 
44 147 ; Setup the fork block and pop the stack to simplify the code 
000 148 : in case the requestor needs to be suspended. 
0000 149 : 
0000 150 : 
OC AS 8EDO 0000 151 POPL FKBSL_FPC(RS) ; Save return addr, pop stack 
07CO 8F 6B ae 13 PUSHR #*M<R6,R7,R8,R9,R10> 3; Save regs 
53 53 9A 0008 154 MOVZBL R3,R3 ; Use only the index 
10 AS 53 7D OO00B 155 MOVQ Rs. FBSL_F FR3(R5) : Save selection data 
58 2868243 DO OOOF 156 MOVL aRCBSL_ BTR _LPD(R2)CR31,R8 ; Get LPD address ; 
05 10 pate 130 BSBB 10$ :; Process request, okay to wait 
07CO 8F BA 0016 159 POPR #*M<R6,R7,R8B,RI,R10> ; Restore regs 
05 OO1A 160 RSB ; Done 
001B 161 
0018 16¢ 
Baie 197 10$: ASSUME LPDSV_ACTIVE EQ 0 
16 22 AB ED gate 165 BLBC LPD$W_STS(R8) ,QRLSDENY ; Br if no path to node 
O1F 166 QUICK_SOL: 3; Quick solicit entry 
56 53 14 C5 OO1F 16 MULL3 #LPESC peneyH. R3,R6 ; Get LPE offset 
56 “Oo000000"GF cd 0025 168 G*NETSOCB, ; Make it a pointer | 
02A 170 : 
: . 173 : Get LPD specific IRP -- also serves as the ‘input packet Limiter’ | 
A 17 : 
53 08 B6 OF A 174 REMQUE aL Pesa. InP. FREE(R6) ,R3 ; Get a free IRP 
7. 6 3 175 vc ipe ; If vC then got one 
04 B86 65 Of 176 INsave (R5) RESO. IRP_WAIT+4(R6) ; Wait for IR 
033148 ia: | 
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0 180 -SBTTL QRLSDENY - Deny sol igi vor permission to transmit 
! A ~SBTTL QRLSGRANT - Grant solicitor permission to transmit 
183 ; 
! : ; The RS fork process cannot be suspended beyond this point. 
0 1 § : 
0 1 : INPUTS: R9 Scratch 
0 188 ; R8 LPD address 
0 189 ; R7,R6 Scratch 
035 190; R5 Fork block address 
8 2 191 3 RG ADJ index 
139 3 R3 If QRLS$GRANT = IRP address 
035 193; If QRLSDENY = Scratch 
0035 194; R2 RCB address 
8 5 195; R1,RO0 Scratch 
035 128 $ 
0035 197; 
0035 198 ; OUTPUTS: R7-RO Garbage 
0035 199; ‘ 
0035 5p0 : ALL other registers are preserved. 
0035 01; 
0035 $05 2= 
bose 03 QRLSDENY: ; Deny permisson to xmit C 
50 94 0035 ge CLRB RO : Indicate request denied C 
8E 52 7D 0037 205 MOVQ = R2, (SP) + ; Save regs C 
0c B5 16 OO3A 06 JSB af KBSL_FPC(RS) 3 Tell requestor the bad news C 
52 8€ 7D 003d 207 mova (SP)+,R2 ; Restore regs C 
05 6080 8 RSB ; Done : 
Bpe} 19 QRLSGRANT: ; Grant permission to xmit | 
0041 1 : Call requestor back with: C 
0041 1 F ¢ 
0041 gle : a9 ADJ address C 
0041 15 3 R8 LPD address C 
ok sig : R7,R6 Scratch C 
041 17 : R5 Fork block address C 
0041 218 ; R4 Scratch C 
0041 219 : R3 IRP address only if RO has low bit set, else scratch C 
0041 220 : R2 RCB address C 
0041 1 : R1 Scratch C 
0041 é ; RO Low bit set if permission granted C 
op ? : Low bit clear if permission denied | 
041 5 ; D 
59 2C B244 DO 004) § MOVL Heh es PTR_ADJ(R2) it RO 3; Get ADJ E 
046 38 MOVW R10, IRPSQ_STATION+4 (R35 ; Store dest node addr E 
046 8 3% BBC #ADJSV_RUR,ADJ$B_STS(R9) ,10$ 3 If BC. “'main’’ ADJ F 
44 A304 09 3C 0046 9 MOVZWL ADJ$W_PNA(R9) , IRP$Q_STATION+4(R3) : Set target address F 
40 AS OOO400AA BF 0 0048 g30 108: ROVE #TR4SC_HIORD, [RPSQ_STATION(R3) Team * F 
50 01 90 005 1 MOVB s#l, 3 Say phay to xmit F 
oc B85 si16 038 § JSB @FKBSL_FPC(RS) ; Reactivate solicitor ' 
59 4 ; I 
B20 2 3 On return, the CXB and registers are setup as follows: i 
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7 : 
a 3 poems maa mamamneue + 
i ; 86 ~~)6 standard : 11 bytes tong. CXBSL_FLINK and CXB$L_BLINK may 
40 ; ' VMS | be used by the Transport layer. CxB$ 
$] ; H buffer header i must be correct. CXBSB_TYPE must be DYNSC_CXB. 
rk : ' | Starts with CXBSB_CODE (byte 11) and continues 
44 3 ' ECL H to CXBSC_LENGTH. This area is read-only to 
45 : | pure area } Transport and below. It cannot even be 
rf 3 : H saved/restored. 
48 3 H Datalink {| Starts at CXBSC_LENGTH and is at least 
49 3 ' Layer ' CXBSC_DLL bytes long. Used by the datalink for 
20 s H impure area : protocol header or state information. 
5 ; 4 
A 3 ‘ body of - Must be quadword aligned and starting no sooner 
54 jae message - than CXBSC_LENGTH + CXBSC_DLL (= CXBSC_HEADER) 
55 . ; . The first 6 bytes contain: RTFLG,DSTNOD,SRCNOD 
2$ 3 : ; FORWARD, in that order. 
58 : $eoeeccccecececcon + 
$29 ; H Datalink {| Used by the datalink layer for protocol (e.g., 
60 ; ' Layer H checksum) or state information. Must be at 
$e : H impure area | least CXBSC_TRAILER in Length. 
$e 3 
264 : 
65 3 R9 ADJ address or zero 
66 5 R8 LPD address 
67 : R7 Size of message 
68 $ R6 CXB address 
$65 ; R5 Garbage + 
70 : RG 0 if “quick solicit’’ not requested 
271 ; Else, pozater to request block (XWB fork block) with 
si§ : FRKSL_FPC pointing to the ‘quick solicit’’ routine 
$f : R3 IRP address -- unmodified from call 
74 : R2 Address of End-action routine to call on I/0 competion 
75 3 R1 Ptr to Ist byte in standard Phase III route-header 
76 : RO Low bit set - if message is to be xmitted 
77 ; Low bit clear - if no message to xmit. In this case 
oe : R7-R4,R2,R1 contain garbage. 
0 ; 
Hi MOVL R2,IRP$L_SAVD_RTN(R3) ; Save ptr to End-action routine 
: MOVL  IRPS$L_ASTPRM(R3) ,R2 : Recover RCB address 
2 BLBC RO,00$ 3 If LBC then xmit aborted 
5 MOVL R4,R5 ; ‘Quick solicit’’ requested ? 
5? BEQL FINISH_XMT : If EQL, no 
8 PUSHR #°men? ,RS> 3; Remember RCB and block's address 
8 BSBB FINISH_XMT 3 Finish aus eton HOR & IRP, xmit it. 
3 POPR #*A<R2,R5> ; Setup R2,R5 (RB points to LPD) 
38 mova FKBSL_FR3(R5) ,R3 ; Recover original request data 
9 BRB QUICK _SOL ; Perform “quick solicit 
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0081 31 4 8 60$: BRwW QRLSXMT_ABORTED ; Recycle unused the IRP 
7 %6 FINISH_XMT: | 
7 9 
7 38 : | 
7 9 3 
f 9 : Journal the message to be transmitted | 
07 : : | 
4 Z 3 IF DF, JNX$$$ 
of 5 : PUSHL RO : Save registers 
7 $ 3 MOVL IRPSL_ASTPRM(R3) ,R2 ; Get RCB address 
007 O07 3 CLAL R ; Set journal type = Start xmt 
007 08 ; BSBW TR_FILL_JNX ; Store journal record 
007 09 ; POPL RO ; Restore registers 
007 10 ; 
0078 1} ; -ENDC 
0D 22 AB =«(07~CséEE 0070 18 BBC #LPDSV_X25,LPD$W_STS(R8),100$ ; Skip if not X.25 datalink 
07D 315 : 
Bhp 1 3 X.25 circuits a CRC16 checksum on the data portion of the message. 
007D 318 : 
0B BB 007D 319 PUSHR #*M<RO,R1,R3> : Save regs 
007F 320 :8 CRC CRC16,#0,R7,(R1) > Calculate CRC16 on data 
52 50 oO O07F 21 MOVL RO,R 3; Save CRC 
0B =BA ope § POPR #*M<RO,R1,R3> ; Restore regs 
71 52 B80 0084 4 MOVW R2.=<R1) t Save CRC in datagram 
57 02 a0 0087 5 ADDW #2,R7 3 Account 
66 51 00 445 § 100$: MOVL R1, (R6) ; Save address of start of data N 
20 A3 $0 B0 Bo 8 MOVW S*#10$_WRITELBLK,IRPSW_FUNC(R3) ; Setup function 
24 AS 6 00 44 4 MOVL R6, IRPSL_IOSB(R35 ; Buffer address into 10SB : 
0095 1 ASSUME IRPSW_BOFF €Q 4+IRPSL_SVAPTE " 
2C A3d—so9E b098 g MOVAB IRPSL_SVAPTE(R3),RO : Setup for auto-increment N 
07 22 A8 05 E1 444 : BBC #LPDST_XBF ,LPDSW_STS(R8) ,120$ : If BC, 1/0 is direct 4 
009E 6 ; N 
gE i : Xmitter 1/0 is buffered | : 
O9E 9 : P 
80 56 00 O09E 340 MOVL 6, (RO)+ : Setup buffer ptr in SVAPTE P 
80 B4 OOA1 341 CLRW = (RO) + : Clear BOFF Pp 
19 «+11 A g BRB 140$ ; Continue Q 
OA 43,1208: ; Q 
OA 44 : Q 
OA 45 : Xmitter 1/0 is direct Q 
ns i ; | 3 
54 66 OD A 48 MOVL (R6), RS : Get msg address Q 
56 00000000" GF D ABO O34 MOVL  G*MMGSGL_SPTBASE,R6 : Get system page table base Q 
51 54 #1 9 EF AF 50 EXTZV #VASV_VPR,#VASS_VPN,R4,R1 ; Get Virtual page frame number Q 
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80 6641 DE B4 1 MOVA (R6)CR1),(RO)+ 3; Enter SVAPTE 
80 54 E00 8F AB Ose 3 1408 BICW #*°C<VASM_BYTE>,R4, (RO)+ ; Enter page offset into BOFF 
BE 354 race 
3 36 ; Complete the IRP and queue it to the device 
BE 35 : 
BE 58 ASSUME IRPS$W_BCNT EQ fel eesucbeae 
OBE 39 ASSUME IRPSLIBCNT £0 O+IRPSW"BCNT 
60 57 3C OOBE 61 MOVZWL R7,(RO) 3; Enter BCNT 
2 D4 poet 6¢ CLRL 3; Prevent buffer deallocation 
55 ic A DO 00C3 6 MOVL IRPS$L_UCB(R3) ,R5 ; Get comm driver 
06 13 00C7 64 BEQL : If EQL then this is Local LPD 
QO000000'GF 17 494 rH JMP G*EXESAL TQUEPKT : Send to ‘'real’’ datalink 
pace t 3150$: BRW TRSLOC_DLL_XMT ; Send to “‘local’’ datalink 
OOCE $9 150$: BUG_CHECK NETNOSTATE,FATAL ; TRSLOC_DLL_XMT not global 
0003 371 
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QRLSGRANT = Grant solicitor permission t 


cvovVv7Tv?7 


a ad ad dd md =I IQOOO OOOO OOOCOOCOCOSCSOOSOSOCOCOOSOSGOOOOOOOOOSSoO 
NORINCO TF FF HMMM MMMMnMmmmmnmcn co 

CO FO PHS SIT De BR at nk a a dd td td a tt ot ot I I IT PPP PPP YP Kr Pr Puro CO OW 
PPP IPOPINIMININIDD 9 9 9 9  FQOOOQDOODOOCOO COOOO OOOO OWWOOWOWOMo NNN NN 
DOOD NA ANEW OS OD NA UNE WIN 8 OD NAME WIN SO OD NAME WIN 9 OD NAME WN -2$ OOONAME Ww 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
Q 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
: 


Pee ee ee ee ee ee 


NETACP.SRCJNETDRVQRL .MAR; 1 ( 


QRLSRTRN_X_10: 
OSBINT #NETSC_IPL 
PUSHR #*M<R6>R7,R8,R9,R10> 


MOVL. IRPSL_ASTPRM(RS) ,R2 
MOVZBL RPSL AST(RS) 

MOVL  a@RCB$C_PTR_LPO(R2)CROI,RB 
DF ,UNXS$$ 


xmt 1/0 completion 
Raise IPL 

Save regs 

; Get RCB pointer 


; Get LPD index 
; Get LPD address 


» 
Oo 


@ 

. 
oe Oo 

nn 


Set length of 10SB 

Journal the I0SB quadword 
Journal type = xmt complete 
Store journal record 


M #8,R7 
HOVAB TRPSL_1OST1(R5) 1 
BSBW = TR_FILL_JNX 


& ~ENDC 
MOVL IRP$L_IOSB(R5) ,RO ; Get buffer 
CLRL IRPSL_IOSB(R5) ; Detach it from the IRP 
: Deliver end-action status to the ECL issuing the transmit. It is 
3 the responsibility of the ECL routine to consume the RO buffer -- 
: deallocate it, requeve it, etc. Attaching RO to IRP$L_IOSB will 
; cause it to be deallocated on return. 
: Call with: R5 IRP address 
3 R4,R3 Scratch 
3 R2 RCB address 
: R1 Scratch 
$ RO CXB address 
: On return from ECL: 
: R4,R3,R1,RO may be garbage. 
: ALL other registers must be unchanged. 
jSB @IRPSL_SAVD_RTN(RS) : Deliver status to ECL layer 
INCPMS RCVBUFF 3% temp 
BLBC IRP$L_IOST1(R5) ,30$ ; If LBC, 1/0 failed 
BUMP  —s LL, LPDSL_CNT_DPS(R8) ; Bump ‘departing pkts sent’ 
INCPMS DEPLOCPR t wee and the PMS database too 
30$: MOVL [pest10SB(R5) RO 3 Get the CxB 
BEQL 0$ 3 iV FOL then none 
CLRL IRP$L_IOSB(RS) 3; Nullify CxB potater 
JSB G*COMSDRVDEALMEM 3; Deallocate the CXB 
40$: MOVL R5,R3 ; Copy IRP address 
BSBB QRLSRTRN_X_IRP ; Return IRP to the Xmit pool 
POPR #*M<R6,R7,R8,R9,R10> : Restore re 
ENBINT 3; Restore IP 
$B ; Return to Exec 
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1 QRLSXMT_ABORTED: 3; User abort Xmit request 
38 AS «(0190 ! ; : o38 “MOVB #1, IRPSL_IOST1(R3) 3; Recycle IRP normally 
12D 435 QRLSRTRN_X_IRP: : Recye Le Xmt the IRP 
50 10A3. 9A O12D 4 § AonzgL pneet eAST ie) RO 3; Get LPD index 
56 50 14 C5 Q131 4 MULL ALPES CALENGTH, RO,R6 3; Get LPE offset 
56 00000000'GF CO 0135 438 ADDL G“NETS ; Make it a pointer 
52. 14 a3 <0 13¢ 439 MOVL _—IRPSL FASTPRE(R3) , R2 ; Get RCB pointer 
140 441 : 
i 226 : Restart someone waiting for this IRP, or queue the IRP 
140 444 : 
55 0086 OF 0140 445 40$:  REMQUE @LPESQ_IRP_WAIT(R6),R5 ; Get waiting process 
9 1D Bie rr BVS 7 : f none 
07 38 A E9 0146 44 BLBC IRPSL_ JOST ESAS? 50$ 3 if LBC, 1/0 was unsuccessful 
54 14 AS bo 014A 448 MOVL FKBSL (R5) RS ; Get ADJ index 
FEFO 1 Q14E 449 BRW RL$G RA ANT. 3; Reactivate the process 
en 
0151 12¢ : An 1/0 failure indicates a severe hardware problem. Reactivate 
0151 45 $ all processes waitin for. an IRP for this device denying them 
0151 454 3 permission to transmit. The ECL recovery bogie will try 7 
0151 455 : after a short interval. The I/0 failure will be detected 
0151 456 : NETDRVXPT since it always has a receive posted to each circuit 
0151 457 ; and that receive should also fa 
0151 458 : 
0151 459 : 
FEE1 30 0151 460 BSBW QRLSDENY ; Reactivate the process 
EA 11 0154 461 R 3; Loop 
0C B6 63 OF 0156 186 70$: INSQUE (R3),@LPE$Q_IRP_FREE+4(R6) 3; Save IRP 
0° oie hee oe 
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] . 288 P -SBTTL QRLSSETUP_CHAN = Setup channel to specified node 
158 208 3 
158 ry ; INPUTS: RS Non=-zero LPD index 
158 470; R RCB pointer 
138 $f) $ R1 Pointer to standard Phase III route-header 
138 138 3 OUTPUS: R4 ADJ index 
15B 474; R3 Size of new route-header 
158 475; Rt Pointer to new route-header 
132 +78 3 RO LBS if successful, LBC otherwise 
$186 of8 :- 
0158 479 QRLS$SETUP_CHAN:: : Setup channel to node 
O3F6 BF BB 0158 480 POSHR #*M<R1,R2,R4,R5,R6,R7,R8,RI> ; Save regs 
5 D4 O1SF 481 CLRL 3; Assume error 
07 =«#65 91 0161 rt} CMPB R3,#MAX_C_LPE-1 : Can we handle it? 
0164 483 ;:;88& BGEQU§ 5$ : If GEQU, out of range 
OA 11 0164 484 BRB 5$ 3; Always return failure 
0166 485 $ 
0166 486 3 
0166 487 ; Find ADJ and LPD 
0166 488 3 
0166 489 : 
54 01A1 3C 0166 490 MOVZWL 1(R1),R4 3; Get remote node address 
FE93' 30 O16A 491 BSBW  TRSGET_ADJ : Get ADJ and LPD 
03 50 5 0160 49 BLBS RO,10$ 3 If LBS okay 
do7c 31 9170 493 5$: BRW 106s : Exit 
017 494 38 is the following needed? 
50 D4 0173 495 10S: CLRL Ro 3; Assume LPD or ADJ not there 
76 58 IF €1 0175 496 BBC #31, Re 1008 ; If BC, no LP 
72 59 ~+#1F «€1 #0179 497 BBC #31,R9,100$ ; If BC, no ADJ 
50 2C A2 DO 017D 498 MOVL Rcage PTR_ADJ(R2) ,RO : Address first ADJ pointer 
80 59 Di 0181 499 20$ CMPL RO, (RO)+ 3: This a" 
FB 12 0184 500 BNEQ 3 Ine 
50 2c A2 C2 0186 501 SUBL § RCBSL_PTR_ADJ(R2) ,RO : Get EO stones in Longwords 
50 04 C6 018A 206 DIVL #4, : Convert to bytes 
08 AE 50 OF C€ p188 207 SUBL3 #1,R0,8(SP) 3; Save index R4 cell in stack 
0192 505 : 
> 33 206 3 Make sure LPE has IRP's. If LPE's don't exist, allocate them. 
19 08 ; 
56 00000000'GF f O18 309 MOVL gneTsuce. oR6 3; Get LPE yecter pointer 
C 1 19 10 BNEQ 3; If N NEO it 5 
51 Ac é 9A 0198 ye MOVZBL ei gece hese LENGTH*MAX_C_LPE>,R1 ; Setup length’ of LPE yee tor 
AG 30 019F 1g BSBW NETSALONPGD_Z : Allocate /zero the bloc 
E9 in 51 BLBC 0 nt : If LBC, nice try 
* O¢ C1 O1A 14 ADDL3 #12,R ; Get address of vector area 
00000600" a 6 00 0149 i MOVL RO GAA TSUCB : Setup LPE vector pointer 
1B 1 
$188 18 ASSUME LPESQ_IRP_FREE EQ 8+LPE$Q_IRP_WAIT 
18 }} ASSUME LPESC “LENGTH EQ 20 
50 56 00 018 A MOVL R6,R0 ; Setup temp pointer 
52 08 9A 018 2 MOVZBL #MAX_C_LPE,R2 ; Setup loop counter 
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yO4000 ORLS$ CHAN = Setup channel to eect ety 7 $5 :38:34 ENETACP. SREINEYDRVORL MAR: 1 “f) 11) | 
68 ‘e 40$: oy tT yd a ; Setup first listhead 
a D MOVL RO, (RO) + Setup second Listhead 
80 D MOVL  (RO)+,(RO)+ ; 
D TSTL (RO)+ 3; Go to next LPE 
EF F SOBGTR R2,40$ 3; Loop 
53 539A 50$:  MOVZBL R3,R3 : Use only the index portion 
so 8s fe OR MULES BCPESC_LENGTH,R3,R6 S Get LPE offset.” 
56  00000000'GF £0 ADDL G“*NETSOCB,R6 ; Make it a pointer 
51 6€ D MOVQ (SP),R1 ; Recover header ptr and RCB 
0099 30 BSBW QRLSé TUP_X_IRP : Setup IRP's 
1150 €9 BLBC RO,100$ ; If LBC, something's wrong 


: Setup route-header 


MOova (SP),R1 Recover header ptr and RCB 


51 6€ 7D 3 
57 06 00 MOVL #6,R 3; Standard header size 
OE 10 BSBB QRLSSETUP_RTHDR ; Setup the header 

of 51 00 MOVL R1, (SP) 3; Setup new header pointer 
5 57 00 MOVL ° ; Setup new header size 
50 01 400 MOVL #1,R0 3; Say “success” 
O3F6 8F BA 100$:  POPR #*M<R1,R2,R4,R5,R6,R7,RB,RI> ; Restore regs | 

05 RSB ; Return status in RO 
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~SBTTL QRLSSETUP_RTHDR = Build route-header 
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This routine converts the Phase III header passed by R1 to the proper format 
according to the nature of the adjancency and the padding requirements of 
the circuit. 
INPUTS: R ADJ address 

: LPD address 

R Total number of bytes in message/header 

R2 RCB address 
R1 Pointer to start of Phase III route-header 


OUTPUTS: R7 New message/header size 
R4,R3 Garbage 
R1 Pointer to start of new route-header 
RO Garbage 


ALL other registers are preserved. 


Sete Ge Ge Ge Ge Se Se Ge Se Se Se Se Se Se Ge Se Se Ge 


ORLSSETUP_RTHDR: ; Build/convert route-header 


Build header based on output adjacency node type. 


We will make a speciai check here, to see if we are an Endnode. 
This is because on a BC circuit the ‘'main’’ ADJ has a PTYPE of 
“unknown’’ which prevents the building of a route header. 


SDISPATCH RCBSB_ETY(R2), TYPE=B,- 
‘ <ADJSC_PTY_PH4N, 10$>,- ; Phase IV endnode 
SDISPATCH ADJSB_PTYPE(R9) , TYPE=B,- 


fe ee we ee ww wee alo olololelelelolelelelelelelelelelelolelelelelelelololelolololeleolelelel ol oleae ole oo =) 
Wawel i) -)-) -1-Talelelel elena of ot ot ot ot of ot ot ot ot of of ot ot ot ot at Nee 
fe al © al © al * al @ al al © al al “ah Al Ah Al Ah AL Ab Ab Ab Ab Ab Ab AD AD Ab Ab Ab Ab Ah Ab ah sh shal rsh sl al ah ah eal val eal eal eal al ial eal eal esl eal al eal eal eal eal eal al eal eal 
OODOODOOCOCSCOCOOOOO OOOO O00 09 00 09 09 09 09 09 098 SI NINN SINS NS SNS SO AAAAAOAOOOMMIUIUINIUIUIU 
BONA EWN 3 CO OD NAME WN 9 OD NAME WIN 3 0 OD NOAU EWN 0 OONAU EWI OOONOUILS Wry 


<ADJSC_PTY_AREA 10$>,- ; Phase IV level 2 router 
<ADJSC_PTY_PH4 10$>,- ; Phase IV router 
<ADJSC_PTY_PH4N 10$>,- ; Phase IV endnode 
<ADJSC_PTY_PH3 30$>,- ; Phase III router 
: <ADJSC_PTY_PH3N 30$>,- ; Phase III endnode 
> ALL others including Phase II 
57 06 C2 SuBL = #TR3$C_HSZ_DATA,R7 ; Adjust msg size 
7 @& ADOL #TR3$C_HSZ_DATA,R1 ; Skip over Transport header 
3 S11 BRB 40$ ; Join common code 
108: 3 
: Phase IV Router/Endnode 
ASSUME TR4SV_RTFLG_RTS EQ TR3SV_RTFLG_RTS 


01 Al FCOOFCOO 8F CA 


NETORVQRL - DECne 
v04-000 QRLSSETUP_ 
39 22 A8 OA E1 
. 2: eG 
+ hUwSlhlUC<CS 
83 81 24 89 
54 81 =B0 
51 61 «BO 
83 B4 02 
83 O00400AA 8F 00 ; 
83 54 BO 
83 B4 02 
83 O00400AA 8F 00 02 
83 51 BO 02 
83 4 ; 
51 EB A3 9E 
08 11 02 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
; 


-) a ae 
03 22 A8 OD €E1 
51 01 CA 
03 22 A8 : a 
51 ? =A 
53 1 ¢ 
98 1 
.. 2 c 68 
61 53 80 8F 9 $f 
va “4 
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30$: 


40$: 


60$: 
80$: 


100$: 
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ASSUME TR4SV_RTFLG_ROR EQ TA3SV_RTFLG_ROR 


BBC #LPDSV_BC,LPDSW_STS(R8) ,40$ ; If BC, NOT a broadcast circuit 
SUBL3 #HS7_DELTA.R1,R3 ; Point to new header area 
ADDL #HSZ_DELTA,R7 ; Adjust msg size 


: For Broadcast Circuits, always set the Intra-NI flag. It will be 
§ cleared by routers if they route this packet off the Ethernet. 


B1SB3  #TR4SM_RTFLG_INI!- : Set the Intra-NI flag 
TR4SM_RTFLG_LNG, (R1)+,(R3)+ ; Set the long format flag 
MOVW (R1)+,R4 ; Get destination address 
MOV (R1),R1 ; Get source node address 
CLRW (R3)+ ; RESERVED D-AREA, D-SUBAREA 
MOVL bay 5" HIORD, (R3)+ 3; Store destination HIORD 
MOVW RG, (R3S+ : Store destination address 
CLRW 3s (R$) + : RESERVED S-AREA, D-SUBAREA 
MOVL #TRGSC HIORD, (R3)+ : Store source HIORD 
MOVW R1,(R33+ ; Store source node address 
CLRL = (R’8) + : Clear NL2, VISIT-CT, SERVICE- 
; CLASS and PROTOCOL TYPE 
MOVAB <-TR4$C_HSZ_DATA(R3),R1 ; Get new header pointer 
BRB 40$ ; Join common code 


Phase III Router/Endnode 


eeeee THE FOLLOWING IS A REQUIREMENT OF THE ARCHITECTURE ***#* 


There are no known DECnet tap ensatet tone which can handle node 
addresses from other areas. Therefore, for Phase III nodes we 
will always reset the area field of the source node address. 
There are checks in the route-thru code to prevent route-thru 
nodes from sending to Phase III nodes from other areas. 


ICL #TR4SM_ADDR_AREA! <<TR4$M_ADDR_AREA>@16>,1(R1) 
Pad the message if required 


PY start of message pointer 
C no word alignment needed 
se, backup to word boundary 
BC no quad alignment needed 


R1,R3 
#LPDSV_ALIGNU,LPDSW_STS (RB) .608 
#LPDSV_ALIGNG,LPDSW_STS(RB) , 80S 
#7,R1 


L 
Ls R1.R3 
aL ~—Ss«éd 06S 


R3,R7 
1SB3 #*xX<80>,R3,(R1) 


° 

f 

f 

lse, beckue to ques boundary 
alculate size of rounding 
ranch if no pad required 
ncrease size of transfer 

e 
re) 


C 
I 
E 
I 
E 
C 
i 
Set bit to indicate pad count 
ne 


rae 8, 
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74 a jos e eo 
7 bef SBTTL QRLSSETUP_X_IRP = Allocate, init, queue IRP 
74 oes : INPUTS: R8 LPD address 
74 670; Rg LPE address 
oe er) : R RCB address 
oe i : OUTPUTS: RO LBS if there are IRP's and the LPD is active 
8 oe 97? : R4,R3,R1 are clobbered 
8 74 ers : ALL others are unchanged 
O572 878: 
0 r 680 QRLSSETUP_X_IRP: ; Allocate, init, queue IRP 
50 D4 0274 one LRL RO 3; Assume error 
0 68 ASSUME LPDSV_ACTIVE EQ 0 ; 
1€ 22 AB OE «COO 684 LBC LPD$SW_STS(R8) ,100$ : If BC, inactive 
02 10 “6 91 0 685 10$ CMPB LOG SS LAP CNTIRG) 82 ; Do we already have two ? 
1 1E 8S 686 BGEQU 0$ ; If GEQU yes, that's enough 
15 10 0 687 BSBB SETUP_X_IRP ; Do it 
09 50 =—£€9 f3 688 BLBC RO,50$ : If LBC, allocation failure 
10 Ag 9 0 689 INCB LPESB IRP_CNT(R6) : Bump the count 
OC B6 6 OE 0 690 INSQUE (R3),aSLPESQ IRP_FREE+4(R6) ; Queue the IRP 
0 691 ;& INCW RCBS$W_TRANSTR2) ; Account for IRP 
EC 11 0 69 BRB 10$ ; Loop 
10 A6 «695 «(0 693 50$: TSTB LPESB_IRP_CNT(R6) 3; Any IRP's ? 
a. ts © 694 BEQL 100$ ; If EQL, return error 
50 01 »odO0 0 695 90$: MOVL #1,R0 3; Indicate success 
05 8 036 100$: RSB ; Done 
0 698 
0 699 SETUP_X_IRP: 
4 BB O 700 PUSHR #*M<R2,R5> 3; Save regs 
51 C4 8F OA OO 701 MOVZBL #IRPSC_LENGTH,R1 ; Setup IRP size 
00000000'GF 16 0O 70 JSB G*EXESALONONPAGED : Get the block 
3¢ 50—séED 8 BLBC RO,200$ ; Br on error 
8 
0 
0 
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704 : 
705 ; 
me 3 Zero the IRP and fill in selected fields 
708 : 
52 DD 709 BUSHEL 8 ; Save block address 
62 00C4 8F 00 6€ 00 2 710 MOVC #0,(SP),#0,#IRPSC_LENGTH,(R2) ; Zero entire block 
53 8ED0 ay POPL R ; Setup IRP pointer 
54 08 Ad 9 718 MOVAB IRP$W_SIZE(R3) ,R4 : Advance to size field 
715 ASSUME IRPSB_TYPE EQ 2+IRP$W_SIZE 
at ASSUME IRPSB_RMOD EQ 1+IRPS$B_TYPE 
84 00C4 BF 80 os MOV #IRPSC_LENGTH, (R4)+ ; Enter size for deallocation 
84 OA 71 MOVZBW S“#DYNSC_IRP,(R4)+ : Enter buffer type and zero 
731 : RMOD to indicate “kernel” 
722 ASSUME IRPS$L_PID EQ 1+IRP$B_RMOD 


o 
oOo 


SEITE 
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BF 723 ASSUME IRPSL_AST EQ 4+IRPS$L_P 
BF 724 ASSUME IRPSL_ASTPRM EQ 4+IRPSL_A 
BF 725 ASSUME IRPSL_WI EQ 4+IRPSL_A 
BF 7 § ASSUME P$L_UCB EQ 4+IRPSL_W 
or 4 ASSUME LPDS$L_UCB EQ 4+LPDSL_W 
84 FEIO CF 9E _ 6h6Ur § MOVAB QRLSRTRN_X_10,(R4)+ ; Enter return address into PID 
84 20 AB O38 C4 730 MOVZWL LPDSW_PTACRB),(R4)+ ; Enter LPD i.d. int 
84 f BO C8 = 731 MOVL P + ; Enter RCB ptr into ASTPRM 
84 OCA D 8 cP ¢ MOVQ LPDSL_WIND(R8), (R4)+ ; Enter WIND and UCB ptrs 
8 CF 734 ASSUME IRPS$W_FUNC EQ 4+IRPS$L_U 
CF 735 ASSUME IRPSB_EFN EQ 2+IRPSW_F 
O2CF 736 ASSUME IRPS$B_PRI EQ 1+IRPS$B_E 
O2cr 737 ASSUME IRPS$L_IOSB EQ 1+IRPS$B_ 
O2CF 738 ASSUME IRPS$W_CHAN EQ 4+IRPS$L_I 
8 34 44 ASSUME IRPS$W_STS EQ 2+IRPS$W_C 
84 7C O2CF 741 LRQ (R4)+ ; Clear FUNC,EFN,PRI,IOSB 
14 A& AE 02D1 oe) MNEGW LPDSW_CHAN(R8) , (R4)+ ; Enter CHAN 
64 B4 Bg03 74 CLRW (R4) 3; Setup STS for direct 1/0 write 
03 22 a8 O05 €E1 D? = 744 BBC #LPDSV_XBF,LPDSW_STS(R8),100$ ; If BC, writes are direct 
64 01 AB O2DC 745 BISW #IRPSM~BUFIO, (RAT : Setup for buffered 1/0 
O2DF 746 3 and next reserved word 
50 01 D0 O2DF 747 100$ MOVL #1,R0 : Indicate success 
24 BA O2E2 748 2008 POPR #*M<R2,R5> 3; Recover regs 
05 O2E4 749 RSB : Done 
02E5 750 
O2E5 751 
02E5 £36 
02E5 753 .END 
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Symbol table —— att 3:36:34 UNETACP. SRCINEYDRVORL .MAR: 1 . cise 
TR4SC_MSG_BCRHEL = XWBSC_COMLNG = 0A4 
TRGSC_MSG_LDATA 2 XWBS$C-CONLNG z 11 
TR4$SC_MSG_RDATA 2 XWBSC-DATA 2 1 
R4$C_PRO_TYPE = XWS$C-LOGIN z 4 
TR4$C_RTR_LVL1 2 XWBSC"LPRNAM s 14 
TR4$SC_RTR-LVL2 = XWBSC"NDC_LNG = $ 
“1 2 XWBSC"NUMSTA s 
TROSC_VER_HIE = 9 9 XWBSC_RID s 1 | 
TR4$SC_VER-LOWW = XWBSC_RPRNAM 2 14 | 
TR4SM_ADDR_AREA = 38 a4 XWBSC"STA_CAR s 3 b¢ | 
TR4SM_ADDR-DEST = Q00003FF XWBSC"STA_CCS = 0004 
TROSM_RTFLG_INI = 8 30 XWBSC"STA_CIR = 93 
TR4SM_RTFLG_LNG 2 4 XWBSC"STA_CIS z 1 
TRGSM-RTFLG_ROR = 00000008 XWBSC-STA_CLO = 00 9900 
TRGSM_RTFLG_RTS = 00000010 XWBSC_STA_DIR = 4 B08 
TR4$R_QU = 00000000 XWBSC_STA_DIS = 45444 
TR4$S_ADDR_AREA = 00000006 XWBSC_STA_RUN = 00000 82 
TR4$S_ADDR-DEST : 9000004 XWBSL-DEA_IRP 2 0000104 | 
TR4$S_ QUAL = 000000 $ tet ged = 00000020 
TR4$S_QUAL_ADDR = 0000000 XWBSL_FR = 00000024 
TR4$S_QUAL_RTFLG = 4944 XWBSL_FR4 = 00000028 
R4$S_QUAL“SCLASS = 00000001 XWBSL_-1CB = 900001 ¢ 
TR4$SS_RTFLG = 0000000 XWBSL_IRP_ACC = 00000080 
TR4$S_RTFLG VER = 0008000 XWBSL-LINR = 0000002C 
TR4$S_SCLASS_57 = 0000000 XWBSL_ORGUCB = 00000010 
TR4$S_TROMSG = 44 4 XWBSL_PID = 44 ts 
TR4SV~ADDR_ = 0000000A XWBSL-VCB = 00000030 | 
TR4$V_ADDR_DEST = 00000000 XWBSL_WLBL = 00000004 
TROSV_RTFLG_01 = 0000000 XWBSL_WLFL = 00000000 
TR4SV_RTFLG_INI = 0000000 XWBSM_FLG_BREAK = 00000001 
TR4SV_RTFLG_LNG = 4444 XWBSM_FLG_CLO = 45 f 44 
TR4SV_RTFLG_ROR = 0000000 XWBSM_FLG_IAVL = 00001000 
TROSV-RTFLG_RTS = 00000004 XWBSM_~FLG~SCD = 00000100 
TR4$SV_RTFLG VER = 00000006 XWBSM_FLG_SDACK = 00000008 
TR4SV~SCLASS_1 = 00000001 XWBSM_FLG~SDFL = 00004000 
TR4$SV_SCLASS_57 = 00000005 XWBSM_FLG_SDT = 444444 
TR4$V_SCLASS_BC = 00000004 XWBSM_FLG_SIACK 2 O06 
TR4$V_SCLASS_LS = 000000 XWBSM_FLG_SIFL = 0000 99 
TR4$V_SCLASS_METR = 0000000 XWBSM_FLG_SLI = 0000 3} 
TR4$V~SCLASS_SUBA z 000 00 XWBSM_FLG_TBPR = 0008 08 
VASM_BYTE s 1F XWBSM_FLG_WBP = 0000004 
VASS_VPN s 01 XWBSM_FLG_WBUF = 000 3008 
VASV_VPN = 00 XWBSM_FLG_WDAT = 000004 
= D XWBSM_FLG_WHGL z 3 B08 
XWBSB_ACCESS = XWBSM-PRO-CCA = 
XWBSB-DATA = XWBSM_PRO_NAR z 9 1 
XWBSB_F IPL = XWBSM_PRO_NF z 1 
XWB$B-LOGIN = XWBSM_PRO_PH z 4 
XWB$B_LPRNAM s XWBSM_PRO_SFC = 0 
$8- = XWBSM_STS_ASTPND z 4 
$B-RID s XWBSM_STS-ASTREQ z 50 
XWBSB_RPRNAM = XWBSM_STS” CON = 1 
wB$B8-SP3 s XWBSM-STS_DIS = 00 
XWBSB_STA s XWBSM_STS_DTNAK z 1 
XWB$B_ TYPE = XWBSM-STS"LINAK = 
XWB$B_X_FLW z XWBSM_STS_NDC = | 
XWBSB_X~FLWCNT = XWBSM-STS-OVF = 0 
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Symbol table “—" Been oee Ooi 3e ST eT eS eee evo voeL mars]  o% (aap 
XWBSM_STS_RBP 2 40 XWB$V_STS_CON : 4 
XWBSM-STS_SOL = 04 XWBSV-STS_DIS = 
XWBSM_STS_TID = 1 XWBSVSTS_DTNAK > : 
XWBSM_STS_TLI = 98 XWBSV-STS_LINAK = 
XWBSM_STS-T = 000 XWBSV-STS_NDC 2 ¢ 
$0“FO = 99 14 XWBSV-STS_OVF = | 
XWBSQ"FREE_CXB = 9 118 XWBSV—STS_RBP 2 
XWBSR-CON_BLK = AG XWB$V-STS_SOL = 
XWBSR-RUN_BLK > 0 AG XWBSV-STS_TID = 0 
XWBSS— = 06 XWBSV-STS_TLI = 1 
XWBSS—COMLNG = 6E XWBSV-STS-TMO = 00000005 
XWB$S_CON_BLK = 0000006 XWBSW-CI_PATH = 110 
XWBSS DATA = 9 1 XWBSW-DECAY = Out 
XWB$S_DT = 0000 05 XWBSW-DLY_FACT = 0 36 
XWBSS_FLG = 0000000 XWBSW-DLY-WGHT = 0000005 
XWBSS_FORK = 0000000 WBSW-ELAPSE = 0000004A 
XWBSS-FREE_CXB = 9900000 XWBSW-FLG = 0000001C¢ 
XWB$S_LI = 00000030 XWB$W-LOCLNK = 0000003E 
XWBS$S_LOGIN = 0000003F BS$W-LOCSIZ = 90000040 
XWBSS_LPRNAM = 00000013 XWB$W~PATH = 000000 
$S_NDC = 00000020 XWBSW_ PROGRESS = 00000052 
XWB$S PRO = 00000001 XWBSW-REF CNT = 0000000¢ 
XWBSS RID = 90000019 XWBSW-REMLNK = 9000003¢ 
XWBSS_RPR = 0000001 XWBSW~REMNOD = 0000003A 
XWB$S—RUN_BLK = 00000064 XWBSW-REMSIZ = 00000042 
XWBSS_STS = 00000002 XWBSW RE TRAN = 00000054 
XWBSS_XWB = 00000120 XWBSW-R_REASON = 00000044 
XWBST— = 00000112 XWBSW~STZE = 00000008 
XWBST"DATA = 0000005C¢ XWBSW-STS = 90000008 
XWB$T—DT = 000000A4 XWBSW-TIMER = 0000005 
STL = 00000004 XWBSW-TIM_ID = 99000048 
XWB$T-LOGIN = 000000CD XWBSW_TIM-INACT = 0000004 
XWBS$T_LPRNAM = 000000A5 XWBSW_X_ REASON s PRO RRR se 
ST“RID = 00000070 XWB$Z—NDBC = 0084 
XWB$T-RPRNAM = 00000089 
XWBSV~FLG_BREAK = 00000000 
XWB$V~FLG_CLO = 00000009 
XWBS$V~FLG_IAVL = 0000000C 
XWBSV~FLG_ = 0000 008 
¥WBSV~FLG-SDACK = 0000000 
XWBSV~FLG~SDFL = 00 9000 
XWBSV~FLG_ = 99 9 0 
XWBSV~FLG-SIACK = 02 
XWBSV~FLG_SIFL = OD 
XWBSV-FLG_SLI = 04 
XWB$V~FLG_TBPR = 0008 
XWBSV~FLG~ = 00000 06 
XWBSV"FLG_ = 00000001 
XWBSV~FLG_WDAT = A 
XWBSV~FLG~WHGL = 3 
XWBSV~PRO_CCA « 
XWBSV~PRO- = 4 
XWB$V~PRO_NF C = 
XWB$V~PRO-PH2 = 0 
XWBSV~ PRO SFC = 
XWBSV~STS~ASTPND = A 
XWB$V~STS"ASTREQ e 
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Psect synopsis bet ~ g7Eb=} 382 §): 38: $f NETAC 

dm oocerseeseeon ese ed 

; Psect synopsis H 
PSECT name Allocation PSECT No. Attributes 
» 8 « 99 ( ?:) 1 { ( 9. ; NOPIC USR CON ABS LCL NOSHR NOEXE 
SABSS ( 8 NOPIC USR CON ABS LCL NOSHR- EXE 
$$$115_DRIVER ES (¢ 741. 5} NOPIC USR CON REL LCL NOSHR- EXE 

tomers en es mmee err ane se see > 
; Performance indicators ; 
Phase Page faults CPU Time Elapsed Time 
Initialization 33 0: 0.09 00: 0:01.29 
Command processing 152 0:00:01.04 0:00:05.78 
Pass 1 524 0:00:20.74 288: 5.10 . 
syabol table sort 0:00: 6} 0: 3: 7.15 
14 3: 0:03. § 0:00:09.29 

Symbol table output 6 : + 0.4 0:00:01.41 
Psect synopsis output 4 3:8 :00.03 0:00:00.03 
Cross-reference output 8 00:00:00.00 00:00:00.00 
Assembler run totals 92 00:00:29.84 00:01:20.05 


e working set Limit was 2000 pages 

118295 bytes (226 pages) of virtual memory were used to buffer the intermediate code. 

There were 120 pages of symbol table space ng ed to hold 2276 non-local and 41 Local symbols. 
source Lines were read in Pass 1, producing 15 object records in Pass 2. 

57 pages of virtual memory were used to define 39 macros. 
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Macro library name 


-> $Sbuk BUS Ee Se ated G MLB; 1 


0 

HRLIBIJEVCDEF MLB; 1 ? 
ETACP. OBJINETDRV. MLB;1 

NETACP. INET .ALB: 1 7 

SYS.0B 1 

8 

9 


BESVSUSeUSTARLET” hLB;2 
=B25580u att Libraries) 2 


2504 GETS were required to define 29 macros. 
There were no errors, warnings or information messages. 


MACRO/LIS=L1S$:NETDRVQRL/OBJ=0BJ$:NETDRVQRL MSRC$:NETDRVQRL/UPDATE=(ENHS$:NETDRVQRL) +EXECMLS/LIB+L 1B$:NET/LIB+LIB$:NETORV/LIB+SHRL IBS 


v04 
SREINEYDR 


NORD ae 3 NOVEC ovTe 
RD WRT NOVEC 


-00 
RVQRL.MAR; 1 


rm? at 


URT NOVEC CONG 


NI 
vi 


| ION 
RY 


VAX/VMS V4.0 D PROPRIET 


(27 AH-BT13A-SE | ENT CORPORAT 
: A 


